
	
*********************************
***PREFERENCES FOR NEGOTIATION LINE: WHO WANTS SOFT/HARD BREXIT
*************************************


use  "Brexit_dilemmas_Survey.dta" , clear

reg softhard  eu_opinion  ///
regionalexposure lnnights /// 
economicharm friends   ties ///
 ageg gender education_tr  risk_personality ideology informed unemployed worker retired  wave   
margins, dydx(*) post
coefplot, level(95) keep(regionalexposure eu_opinion  lnnights economicharm ) ///
   xline(0) ///
 coeflabels (lnnights ="Tourism Exposure" agegroup ="Age" education_tri="Education"  gender="Male"  wave="March 2019"  ///
 economicharm ="Negative Brexit Impact" ties="Business Ties with the UK" regionalexposure="Regional GDP Exposure" tourism="Tourism Region" risk_personality="Risk acceptance" ideology="Ideology"  ideologysq="Ideology squared" ///
gender="gender" brask ="Britain asking too much" ///
left = "Left-wing" right="Right-wing"  proudc2 = "Proud of country" eu_opinion ="EU supporter"  country = "Spain") ///
 heading( eu_opinion="{bf:EU attitudes}" agegroup ="{bf:Individual traits and attitudes}" regionalexposure ="{bf:Economic exposure}" ///
 economicharm ="{bf:Economic Perceptions}"  wave ="{bf:Wave}" party1 ="{bf:Party Germany}"  party7 ="{bf:Party Spain}", ///
labsize (small))  xtitle ("Marginal Effect") xlabel(-.1(.05).3)   ylab(, labs(vsmall)) title("DV:Preferences for hard negotiation line") 

graph  copy fig1

********************************

reg softhard  c.eu_opinion##c.regionalexposure lnnights  /// 
economicharm  friends   ties ///
 ageg gender education_tr  risk_personality ideology informed unemployed worker retired  wave  
 
 
margins, level(95) dydx(eu_opinion) at(regionalexposure=(0(1)6))
 

 marginsplot, xtitle("Regional Exposure") ytitle("Marginal effect of pro-EU attitudes") title("Interactive effect of regional exposure and EU attitudes") 


graph  copy fig2


graph combine fig1 fig2
graph drop fig1 fig2





***********************************
***********************************
***********************************
*APPENDIX
***********************************
***********************************


 ******************
* APPENDIX 1
*******************
 

 
 *Table A.1
logit  vote_incumbent country_handling eu_op softhard ideology wave  ageg gender education_tr unemplo worke retired if country==1
  outreg2 using voteincumbent_appendix_germany.doc, replace

 *Table A.2
  logit  vote_incumbent country_handling eu_op softhard ideology wave  ageg gender education_tr unemplo worke retired if  country==2
  outreg2 using voteincumbent_appendix_spain.doc, replace
  
  
  
 ************** 
*APPENDIX 8
******************



***************
***appendix 8.1: Full figure
*************** 
 
 
reg softhard  eu_opinion  ///
regionalexposure lnnights /// 
economicharm friends   ties ///
 ageg gender education_tr  risk_personality ideology informed unemployed worker retired  vote_incumbent wave    
margins, dydx(*) post
coefplot, level(95) drop (_constant ) ///
   xline(0) ///
 coeflabels (lnnights ="Tourism Exposure" agegroup ="Age" education_tri="Education"  gender="Male"  wave="March 2019"  ///
 economicharm ="Negative Brexit Impact" ties="Business Ties with the UK" regionalexposure="Regional GDP Exposure" tourism="Tourism Region" risk_personality="Risk acceptance" ideology="Ideology"  ideologysq="Ideology squared" ///
gender="gender" brask ="Britain asking too much" ///
left = "Left-wing" right="Right-wing"  proudc2 = "Proud of country" eu_opinion ="EU supporter"  country = "Spain"  vote_incumbent="Government supporter") ///
 heading( eu_opinion="{bf:EU attitudes}" agegroup ="{bf:Individual traits and attitudes}" regionalexposure ="{bf:Economic exposure}" ///
 economicharm ="{bf:Economic Perceptions}" friends_uk ="{bf:Other exposure}"  wave ="{bf:Wave}" party1 ="{bf:Party Germany}"  party7 ="{bf:Party Spain}", ///
labsize (small) labcolor(orange))  xtitle ("Marginal Effect") xlabel(-.15(.05).3)   ylab(, labs(vsmall)) title("DV:Preferences for hard negotiation line") 

*******************
******Appendix 8.2
*******************

 
reg softhard  eu_referendum  ///
regionalexposure lnnights /// 
economicharm friends   ties ///
 ageg gender education_tr  risk_personality ideology informed unemployed worker retired vote_incumbent  wave   
margins, dydx(*) post
coefplot, level(95) drop (_constant ) ///
   xline(0) ///
 coeflabels (lnnights ="Tourism Exposure" agegroup ="Age" education_tri="Education"  gender="Male"  wave="March 2019"  ///
 economicharm ="Negative Brexit Impact" ties="Business Ties with the UK" regionalexposure="Regional GDP Exposure" tourism="Tourism Region"  vote_incumbent="Government supporter" risk_personality="Risk acceptance" ideology="Ideology"  ideologysq="Ideology squared" ///
gender="gender" brask ="Britain asking too much" ///
left = "Left-wing" right="Right-wing"  proudc2 = "Proud of country" eu_referendum ="Vote in EU referendum"  country = "Spain") ///
 heading( eu_referendum="{bf:EU attitudes}" agegroup ="{bf:Individual traits and attitudes}" regionalexposure ="{bf:Economic exposure}" ///
 economicharm ="{bf:Economic Perceptions}" friends_uk ="{bf:Other exposure}"  wave ="{bf:Wave}" party1 ="{bf:Party Germany}"  party7 ="{bf:Party Spain}", ///
labsize (small) labcolor(orange))  xtitle ("Marginal Effect") xlabel(-.15(.05).35)   ylab(, labs(vsmall)) title("DV:Preferences for hard negotiation line") 

***********************************
*Appendix 8.3
***********************************
  
  reg softhard  eu_opinion  ///
regionalexposure lnnights /// 
economicharm friends   ties ///
 ageg gender education_tr  risk_personality ideology informed unemployed worker retired vote_inc party*  wave
margins, dydx(*) post
coefplot, level(95) drop (_constant ) ///
   xline(0) ///
 coeflabels (lnnights ="Tourism Exposure" agegroup ="Age" education_tri="Education"  gender="Male"  wave="March 2019"  ///
 economicharm ="Negative Brexit Impact" ties="Business Ties with the UK" regionalexposure="Regional GDP Exposure" tourism="Tourism Region"  vote_incumbent="Government supporter"  risk_personality="Risk acceptance" ideology="Ideology"  ideologysq="Ideology squared" ///
gender="gender" brask ="Britain asking too much" ///
left = "Left-wing" right="Right-wing"  proudc2 = "Proud of country" eu_opinion ="EU supporter"  country = "Spain") ///
 heading( eu_opinion="{bf:EU attitudes}" agegroup ="{bf:Individual traits and attitudes}" regionalexposure ="{bf:Economic exposure}" ///
 economicharm ="{bf:Economic Perceptions}" friends_uk ="{bf:Other exposure}"  wave ="{bf:Wave}" party1 ="{bf:Party Germany}"  party7 ="{bf:Party Spain}", ///
labsize (small) labcolor(orange))  xtitle ("Marginal Effect") xlabel(-.45(.15).3)   ylab(, labs(vsmall)) title("DV:Preferences for hard negotiation line") 

*********************
*Appendix 8.4
*************************

 
reg softhard  eu_opinion  ///
regionalexposure lnnights /// 
economicharm friends   ties ///
 ageg gender education_tr  risk_personality ideology informed unemployed worker retired  vote_incumbent satis_govbrexit wave    
margins, dydx(*) post
coefplot, level(95) drop (_constant ) ///
   xline(0) ///
 coeflabels (lnnights ="Tourism Exposure" agegroup ="Age" education_tri="Education"  gender="Male"  wave="March 2019"  ///
 economicharm ="Negative Brexit Impact" ties="Business Ties with the UK" regionalexposure="Regional GDP Exposure" tourism="Tourism Region" satis_govbrexit = "Satisfaction gov. Brexit handling"  risk_personality="Risk acceptance" ideology="Ideology"  ideologysq="Ideology squared" ///
gender="gender" brask ="Britain asking too much" ///
left = "Left-wing" right="Right-wing"  proudc2 = "Proud of country" eu_opinion ="EU supporter"  country = "Spain"  vote_incumbent="Government supporter") ///
 heading( eu_opinion="{bf:EU attitudes}" agegroup ="{bf:Individual traits and attitudes}" regionalexposure ="{bf:Economic exposure}" ///
 economicharm ="{bf:Economic Perceptions}" friends_uk ="{bf:Other exposure}"  wave ="{bf:Wave}" party1 ="{bf:Party Germany}"  party7 ="{bf:Party Spain}", ///
labsize (small) labcolor(orange))  xtitle ("Marginal Effect") xlabel(-.15(.05).3)   ylab(, labs(vsmall)) title("DV:Preferences for hard negotiation line") 




******************+ 
 **APPENDIX 9
 *****************
 
 

*EU supporter (Figure A.13)

reg goal_punish wave ageg gender education_tr  risk_personality   ///
 eu_opinion 
estimates store s1 

reg  goal_avoidleave wave ageg gender education_tr  risk_personality   ///
eu_opinion  
estimates store s2 

reg  goal_mutualagree wave ageg gender education_tr  risk_personality   ///
 eu_opinion  
estimates store s3 

reg  goal_protectecoin wave ageg gender education_tr  risk_personality   ///
eu_opinion  
estimates store s4 

reg  goal_avoidcon  wave ageg gender education_tr  risk_personality   ///
eu_opinion  
estimates store s5 

coefplot (s1, label (Punish the UK)) (s2, label (Avoid more countries leaving)) (s3 ,label (Mutually beneficial agreement)) (s4, label (Protect country's economic interests)) ///
(s5, label (Avoid more contributions to the EU)),  keep (eu_opinion) xline (0) xtitle ("Effect of being EU supporter") ylabel("") xlabel (-.2 0 .2 .4  .6 .8)


***Referendum vote (FIGURE A.14)
reg goal_punish wave ageg gender education_tr  risk_personality   ///
    referendum_eu 
estimates store s1 

reg  goal_avoidleave wave ageg gender education_tr  risk_personality   ///
    referendum_eu  
estimates store s2 

reg  goal_mutualagree wave ageg gender education_tr  risk_personality   ///
    referendum_eu  
estimates store s3 

reg  goal_protectecoin wave ageg gender education_tr  risk_personality   ///
    referendum_eu  
estimates store s4 

reg  goal_avoidcon  wave ageg gender education_tr  risk_personality   ///
    referendum_eu  
estimates store s5 

coefplot (s1, label (Punish the UK)) (s2, label (Avoid more countries leaving)) (s3 ,label (Mutually beneficial agreement)) (s4, label (Protect country's economic interests)) ///
(s5, label (Avoid more contributions to the EU)),  keep (referendum_eu) xline (0) xtitle ("Effect of Remain EU vote") ylabel("") xlabel (-.3(.3)1.5)

	
	
*******	
***Negative Brexit Impact (Figure A.15)

reg goal_punish wave ageg gender education_tr  risk_personality   ///
economicharm  
estimates store s1 

reg  goal_avoidleave wave ageg gender education_tr  risk_personality   ///
economicharm   
estimates store s2 

reg  goal_mutualagree wave ageg gender education_tr  risk_personality   ///
economicharm      
estimates store s3 

reg  goal_protectecoin wave ageg gender education_tr  risk_personality   ///
economicharm     
estimates store s4 

reg  goal_avoidcon  wave ageg gender education_tr  risk_personality   ///
economicharm    
estimates store s5 


coefplot (s1, label (Punish the UK)) (s2, label (Avoid more countries leaving)) (s3 ,label (Mutually beneficial agreement)) (s4, label (Protect country's economic interests)) ///
(s5, label (Avoid more contributions to the EU)),  keep (economicharm) xline (0) xtitle ("Effect of Expected Negative Brexit Impact") ///
 ylabel("") xlabel (-.2(.1).2) 



 
 
 
 
 
 
 
